home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / MacMETH 3.2.1 / Sources / MacC2.6 / M2LM.DEF < prev    next >
Encoding:
Modula Definition  |  1992-05-29  |  954 b   |  28 lines  |  [TEXT/MEDT]
  1. DEFINITION MODULE M2LM;  (* HS 20.5.85 *)
  2.  
  3.   FROM SYSTEM IMPORT WORD;
  4.   FROM M2DM   IMPORT ObjPtr, StrPtr, KeyPtr;
  5.  
  6.   VAR pc : CARDINAL;
  7.       maxP, maxM : CARDINAL;
  8.  
  9.   PROCEDURE PutWord      (w: WORD);
  10.   PROCEDURE PutLong      (l: LONGINT);
  11.  
  12.   PROCEDURE AllocString  (s: CARDINAL; VAR adr, length: INTEGER);
  13.   PROCEDURE AllocChar    (ch: CHAR; VAR adr: INTEGER);
  14.   PROCEDURE AllocBounds  (min, max, size: INTEGER; VAR adr: INTEGER);
  15.  
  16.   PROCEDURE fixup        (loc: CARDINAL);
  17.   PROCEDURE FixLink      (L: CARDINAL);
  18.   PROCEDURE FixupWith    (L: CARDINAL; val: INTEGER);
  19.   PROCEDURE FixLinkWith  (L, val: CARDINAL);
  20.   PROCEDURE MergedLinks  (L0, L1: CARDINAL): CARDINAL;
  21.  
  22.   PROCEDURE OutCodeFile  (VAR name: ARRAY OF CHAR; stamp: KeyPtr;
  23.                           datasize: INTEGER; pno, progid: CARDINAL;
  24.                           ModList: ObjPtr);
  25.   PROCEDURE InitM2LM;
  26.  
  27. END M2LM. (* Copyright Departement Informatik, ETH Zuerich, Switzerland, 1992 *)
  28.